home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).do / MUSIC.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  24 lines
  1. 10 D$ =  CHR$(13) + CHR$(4)
  2. 20  PRINT D$;"BLOAD PLAYER.MODULE,A768"
  3. 30  PRINT D$;"BLOAD M.TOCCATA & FUGUE,A24576"
  4. 40  POKE 30,0: POKE 31,96
  5. 95  TEXT : HOME 
  6. 100  FOR J = 1 TO 40: INVERSE : PRINT " ";: NEXT 
  7. 105  PRINT " ";: HTAB 40: PRINT " ";
  8. 110  PRINT " ";: NORMAL : HTAB 11: PRINT "TOCCATA AND FUGUE";: INVERSE : HTAB 40: PRINT " ";
  9. 115  PRINT " ";: HTAB 40: PRINT " ";
  10. 120  PRINT " ";: NORMAL : HTAB 19: PRINT "BY";: INVERSE : HTAB 40: PRINT " ";
  11. 125  PRINT " ";: HTAB 40: PRINT " ";
  12. 130  PRINT " ";: NORMAL : HTAB 15: PRINT "J. S. BACH";: INVERSE : HTAB 40: PRINT " ";
  13. 135  PRINT " ";: HTAB 40: PRINT " ";
  14. 140  VTAB 9: FOR J = 1 TO 40: PRINT " ";: NEXT : NORMAL 
  15. 145  PRINT : PRINT "RECORDED BY:  KEN FEHRMANN"
  16. 150  PRINT "              116 W. ZUPAN, APT.34"
  17. 155  PRINT "              MARYVILLE, IL  62062"
  18. 160  PRINT : PRINT "RECORDED ON:  'ELECTRIC DUET'"
  19. 165  PRINT "                   BY PAUL LUTUS"
  20. 167  VTAB 19: PRINT "RUNS FOR SEVEN MINUTES"
  21. 170  VTAB 21: PRINT "ANY KEY TO BEGIN": PRINT : PRINT "OR RETURN TAKES YOU BACK TO SOFTDISK";
  22. 175  GET A$: PRINT A$: IF A$ =  CHR$(13) GOTO 190
  23. 180  CALL 768
  24. 190  PRINT  CHR$(4)"RUN KICK.IT.OFF"